%in%¤Î·ñ¶¨

%in%¤Î·ñ¶¨¤Ë!¤Ïʹ¤¨¤Ê¤«¤Ã¤¿¤Î¤ÇÕ{¤Ù¤¿¤éNegateévÊý¤òʹ¤Ã¤Æ¶¨Áx¤¹¤ë¤ß¤¿¤¤¡£

"%not.in%" <- Negate("%in%")
1:5 %in% c(1,2,3)
## [1]  TRUE  TRUE  TRUE FALSE FALSE
1:5 %not.in% c(1,2,3)
## [1] FALSE FALSE FALSE  TRUE  TRUE